# @arthor quoc.le
use strict;
use warnings;
use diagnostics;
package Router;
sub new
{
    my $class = shift;
    my $self = {
        _values => shift,
        _system => shift,
        _interface  => shift
    };

    bless $self, $class;
    return $self;
}
# Getter & Setter

# Values
sub setValues {
    my ( $self, $values ) = @_;
    $self->{_values} = $values if defined($values);
    return $self->{_values};
}

sub getValues {
    my( $self ) = @_;
    return $self->{_values};
}

# System
sub setSystem {
    my ( $self, $system ) = @_;
    $self->{_system} = $system if defined($system);
    return $self->{_system};
}

sub getSystem {
    my( $self ) = @_;
    return $self->{_system};
}

# Interface
sub setInterface {
    my ( $self, $interface ) = @_;
    $self->{_interface} = $interface if defined($interface);
    return $self->{_interface};
}

sub getInterface {
    my( $self ) = @_;
    return $self->{_interface};
}

# Show all data
sub showAll
{
    my( $self ) = @_;
    print $self->{_values}, "\n";
    print $self->{_system},"\n";
    print $self->{_interface},"\n";
}
1;